/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Info / For Developers / Mops 3.4.sea / Mops source / Asm Source / hashDic

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 68 61 73 68 44 69 | 63 00 00 00 00 00 00 00 |..hashDi|c.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 07 7d 00 | 00 01 7d b1 86 80 61 b1 |......}.|..}...a.|
|00000060| 86 80 61 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..a.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 75 62 00 00 |........|....ub..|
|00000080| 5c 20 48 61 73 68 44 69 | 63 20 63 6c 61 73 73 2e |\ HashDi|c class.|
|00000090| 20 20 41 20 64 69 63 74 | 69 6f 6e 61 72 79 20 66 |  A dict|ionary f|
|000000a0| 6f 72 20 74 68 65 20 61 | 73 73 65 6d 62 6c 65 72 |or the a|ssembler|
|000000b0| 2e 0d 0d 3a 20 53 45 54 | 5f 4f 42 4a 45 43 54 5f |...: SET|_OBJECT_|
|000000c0| 43 4c 41 53 53 09 5c 20 | 28 20 5e 63 6c 61 73 73 |CLASS.\ |( ^class|
|000000d0| 20 5e 6f 62 6a 20 2d 2d | 20 29 0d 09 36 20 2d 20 | ^obj --| )..6 - |
|000000e0| 20 72 65 6c 6f 63 21 20 | 20 3b 0d 0d 3a 20 4f 42 | reloc! | ;..: OB|
|000000f0| 4a 4d 4f 56 45 20 20 7b | 20 5e 6f 62 6a 20 61 64 |JMOVE  {| ^obj ad|
|00000100| 64 72 20 5c 20 5e 63 6c | 20 2d 2d 20 7d 0d 09 5e |dr \ ^cl| -- }..^|
|00000110| 6f 62 6a 20 3e 63 6c 61 | 73 73 58 74 20 20 2d 3e |obj >cla|ssXt  ->|
|00000120| 20 5e 63 6c 0d 09 5e 6f | 62 6a 20 20 6f 62 6a 3e | ^cl..^o|bj  obj>|
|00000130| 09 09 09 09 09 5c 20 73 | 6f 75 72 63 65 0d 09 61 |.....\ s|ource..a|
|00000140| 64 64 72 09 09 09 09 09 | 09 5c 20 64 65 73 74 0d |ddr.....|.\ dest.|
|00000150| 09 5e 6f 62 6a 20 20 6c | 65 6e 67 74 68 3a 20 6f |.^obj  l|ength: o|
|00000160| 62 6a 65 63 74 20 20 38 | 20 2b 09 5c 20 6c 65 6e |bject  8| +.\ len|
|00000170| 67 74 68 0d 09 63 6d 6f | 76 65 0d 09 5e 63 6c 20 |gth..cmo|ve..^cl |
|00000180| 20 61 64 64 72 20 32 2b | 20 20 72 65 6c 6f 63 21 | addr 2+|  reloc!|
|00000190| 20 20 3b 0d 0d 0d 3a 63 | 6c 61 73 73 09 57 41 52 |  ;...:c|lass.WAR|
|000001a0| 52 41 59 09 73 75 70 65 | 72 7b 20 69 6e 64 65 78 |RAY.supe|r{ index|
|000001b0| 65 64 2d 6f 62 6a 20 7d | 20 20 32 20 69 6e 64 65 |ed-obj }|  2 inde|
|000001c0| 78 65 64 0d 0d 3a 6d 20 | 20 41 54 3a 09 09 5c 20 |xed..:m | AT:..\ |
|000001d0| 28 20 69 6e 64 65 78 20 | 2d 2d 20 6e 20 29 0d 09 |( index |-- n )..|
|000001e0| 69 6e 6c 69 6e 65 7b 20 | 69 78 20 77 40 7d 0d 09 |inline{ |ix w@}..|
|000001f0| 5e 65 6c 65 6d 32 20 20 | 77 40 20 20 3b 6d 0d 0d |^elem2  |w@  ;m..|
|00000200| 3a 6d 20 20 54 4f 3a 09 | 09 5c 20 28 20 6e 20 69 |:m  TO:.|.\ ( n i|
|00000210| 6e 64 65 78 20 2d 2d 20 | 29 0d 09 69 6e 6c 69 6e |ndex -- |)..inlin|
|00000220| 65 7b 20 69 78 20 77 21 | 7d 0d 09 5e 65 6c 65 6d |e{ ix w!|}..^elem|
|00000230| 32 20 20 77 21 20 20 3b | 6d 0d 0d 3a 6d 20 20 2b |2  w!  ;|m..:m  +|
|00000240| 54 4f 3a 09 5c 20 28 20 | 6e 20 69 6e 64 65 78 20 |TO:.\ ( |n index |
|00000250| 2d 2d 20 29 0d 09 69 6e | 6c 69 6e 65 7b 20 69 78 |-- )..in|line{ ix|
|00000260| 20 77 2b 21 7d 0d 09 5e | 65 6c 65 6d 32 20 20 77 | w+!}..^|elem2  w|
|00000270| 2b 21 20 20 3b 6d 0d 0d | 3a 6d 20 2d 54 4f 3a 09 |+!  ;m..|:m -TO:.|
|00000280| 09 5c 20 28 20 6e 20 69 | 6e 64 65 78 20 2d 2d 20 |.\ ( n i|ndex -- |
|00000290| 29 0d 09 69 6e 6c 69 6e | 65 7b 20 69 78 20 77 2d |)..inlin|e{ ix w-|
|000002a0| 21 7d 0d 09 5e 65 6c 65 | 6d 32 20 20 77 2d 21 20 |!}..^ele|m2  w-! |
|000002b0| 20 3b 6d 0d 0d 3a 6d 20 | 5e 45 4c 45 4d 3a 09 5c | ;m..:m |^ELEM:.\|
|000002c0| 20 28 20 69 6e 64 65 78 | 20 2d 2d 20 61 64 64 72 | ( index| -- addr|
|000002d0| 20 29 0d 09 69 6e 6c 69 | 6e 65 7b 20 69 78 7d 0d | )..inli|ne{ ix}.|
|000002e0| 09 5e 65 6c 65 6d 32 20 | 20 3b 6d 0d 0d 3a 6d 20 |.^elem2 | ;m..:m |
|000002f0| 46 49 4c 4c 3a 09 5c 20 | 28 20 76 61 6c 75 65 20 |FILL:.\ |( value |
|00000300| 2d 2d 20 29 20 20 46 69 | 6c 6c 73 20 61 6c 6c 20 |-- )  Fi|lls all |
|00000310| 65 6c 65 6d 65 6e 74 73 | 20 77 69 74 68 20 76 61 |elements| with va|
|00000320| 6c 75 65 2e 0d 09 69 64 | 78 62 61 73 65 20 20 6c |lue...id|xbase  l|
|00000330| 69 6d 69 74 20 32 2a 20 | 20 62 6f 75 6e 64 73 0d |imit 2* | bounds.|
|00000340| 09 3f 44 4f 20 20 64 75 | 70 20 20 69 20 77 21 20 |.?DO  du|p  i w! |
|00000350| 20 32 20 2b 4c 4f 4f 50 | 20 20 64 72 6f 70 20 20 | 2 +LOOP|  drop  |
|00000360| 3b 6d 0d 0d 3a 6d 20 43 | 4c 41 53 53 49 4e 49 54 |;m..:m C|LASSINIT|
|00000370| 3a 0d 09 30 20 20 66 69 | 6c 6c 3a 20 73 65 6c 66 |:..0  fi|ll: self|
|00000380| 20 20 3b 6d 0d 0d 3b 63 | 6c 61 73 73 0d 0d 0d 20 |  ;m..;c|lass... |
|00000390| 20 20 20 30 09 76 61 6c | 75 65 09 5e 4c 49 4e 4b |   0.val|ue.^LINK|
|000003a0| 0d 20 20 20 20 30 09 76 | 61 6c 75 65 09 48 53 48 |.    0.v|alue.HSH|
|000003b0| 0d 0d 3a 63 6c 61 73 73 | 20 48 41 53 48 44 49 43 |..:class| HASHDIC|
|000003c0| 09 73 75 70 65 72 7b 20 | 77 41 72 72 61 79 20 7d |.super{ |wArray }|
|000003d0| 0d 0d 72 65 63 6f 72 64 | 0d 7b 09 75 69 6e 74 09 |..record|.{.uint.|
|000003e0| 4d 41 53 4b 0d 09 64 69 | 63 61 64 64 72 09 53 54 |MASK..di|caddr.ST|
|000003f0| 52 54 0d 09 64 69 63 61 | 64 64 72 09 50 4f 53 0d |RT..dica|ddr.POS.|
|00000400| 09 64 69 63 61 64 64 72 | 09 4c 49 4d 0d 7d 0d 0d |.dicaddr|.LIM.}..|
|00000410| 3a 6d 20 53 45 54 4d 41 | 53 4b 3a 09 70 75 74 3a |:m SETMA|SK:.put:|
|00000420| 20 6d 61 73 6b 20 20 3b | 6d 0d 0d 3a 6d 20 53 54 | mask  ;|m..:m ST|
|00000430| 52 54 3a 09 67 65 74 3a | 20 73 74 72 74 20 20 3b |RT:.get:| strt  ;|
|00000440| 6d 0d 3a 6d 20 50 4f 53 | 3a 09 09 67 65 74 3a 20 |m.:m POS|:..get: |
|00000450| 70 6f 73 20 20 20 3b 6d | 0d 0d 3a 6d 20 41 4c 4c |pos   ;m|..:m ALL|
|00000460| 4f 54 3a 09 09 5c 20 28 | 20 73 70 61 63 65 20 2d |OT:..\ (| space -|
|00000470| 2d 20 29 0d 09 68 65 72 | 65 20 20 64 75 70 20 20 |- )..her|e  dup  |
|00000480| 70 75 74 3a 20 73 74 72 | 74 20 20 70 75 74 3a 20 |put: str|t  put: |
|00000490| 70 6f 73 0d 09 73 70 61 | 63 65 20 72 65 73 65 72 |pos..spa|ce reser|
|000004a0| 76 65 0d 09 68 65 72 65 | 20 20 70 75 74 3a 20 6c |ve..here|  put: l|
|000004b0| 69 6d 20 20 3b 6d 0d 0d | 3a 6d 20 51 55 45 52 59 |im  ;m..|:m QUERY|
|000004c0| 3a 20 20 7b 20 73 74 72 | 4f 62 6a 20 2d 2d 20 5e |:  { str|Obj -- ^|
|000004d0| 6f 62 6a 20 54 20 20 7c | 20 2d 2d 20 46 20 7d 0d |obj T  || -- F }.|
|000004e0| 0d 09 67 65 74 3a 20 5b | 20 73 74 72 4f 62 6a 20 |..get: [| strObj |
|000004f0| 5d 20 73 74 72 32 35 35 | 20 68 61 73 68 20 20 64 |] str255| hash  d|
|00000500| 75 70 20 2d 3e 20 68 73 | 68 0d 09 67 65 74 3a 20 |up -> hs|h..get: |
|00000510| 6d 61 73 6b 20 20 61 6e | 64 20 20 5e 65 6c 65 6d |mask  an|d  ^elem|
|00000520| 3a 20 73 65 6c 66 20 20 | 2d 3e 20 5e 6c 69 6e 6b |: self  |-> ^link|
|00000530| 0d 09 42 45 47 49 4e 0d | 09 09 5e 6c 69 6e 6b 20 |..BEGIN.|..^link |
|00000540| 77 40 20 4e 49 46 20 20 | 28 20 6e 6f 74 20 66 6f |w@ NIF  |( not fo|
|00000550| 75 6e 64 20 29 20 20 66 | 61 6c 73 65 20 20 45 58 |und )  f|alse  EX|
|00000560| 49 54 20 20 54 48 45 4e | 0d 09 09 5e 6c 69 6e 6b |IT  THEN|...^link|
|00000570| 20 57 64 69 73 70 6c 61 | 63 65 20 20 64 75 70 20 | Wdispla|ce  dup |
|00000580| 2d 3e 20 5e 6c 69 6e 6b | 0d 09 09 32 2b 20 40 20 |-> ^link|...2+ @ |
|00000590| 20 68 73 68 20 3d 0d 09 | 09 49 46 20 20 28 20 66 | hsh =..|.IF  ( f|
|000005a0| 6f 75 6e 64 20 29 20 20 | 5e 6c 69 6e 6b 20 36 20 |ound )  |^link 6 |
|000005b0| 2b 20 3e 6f 62 6a 20 20 | 74 72 75 65 20 20 45 58 |+ >obj  |true  EX|
|000005c0| 49 54 20 20 54 48 45 4e | 0d 09 41 47 41 49 4e 20 |IT  THEN|..AGAIN |
|000005d0| 20 3b 6d 0d 0d 0d 3a 6d | 20 45 4e 54 45 52 3a 20 | ;m...:m| ENTER: |
|000005e0| 20 7b 20 5e 6f 62 6a 20 | 73 74 72 4f 62 6a 20 5c | { ^obj |strObj \|
|000005f0| 20 70 6f 73 6e 20 6c 65 | 6e 20 2d 2d 20 62 20 7d | posn le|n -- b }|
|00000600| 0d 09 73 74 72 4f 62 6a | 20 20 71 75 65 72 79 3a |..strObj|  query:|
|00000610| 20 73 65 6c 66 0d 09 49 | 46 20 20 28 20 69 6e 20 | self..I|F  ( in |
|00000620| 61 6c 72 65 61 64 79 20 | 2d 20 72 65 70 6c 61 63 |already |- replac|
|00000630| 65 20 6f 6c 64 20 76 61 | 6c 75 65 20 77 69 74 68 |e old va|lue with|
|00000640| 20 6e 65 77 20 61 6e 64 | 20 72 65 74 75 72 6e 20 | new and| return |
|00000650| 66 61 6c 73 65 20 29 0d | 09 09 64 72 6f 70 20 20 |false ).|..drop  |
|00000660| 20 5e 6f 62 6a 20 20 5e | 6c 69 6e 6b 20 36 20 2b | ^obj  ^|link 6 +|
|00000670| 20 20 6f 62 6a 6d 6f 76 | 65 0d 09 09 66 61 6c 73 |  objmov|e...fals|
|00000680| 65 20 20 45 58 49 54 0d | 09 45 4c 53 45 0d 09 09 |e  EXIT.|.ELSE...|
|00000690| 67 65 74 3a 20 70 6f 73 | 20 20 2d 3e 20 70 6f 73 |get: pos|  -> pos|
|000006a0| 6e 0d 09 09 5e 6f 62 6a | 20 6c 65 6e 67 74 68 3a |n...^obj| length:|
|000006b0| 20 6f 62 6a 65 63 74 20 | 38 20 2b 20 20 2d 3e 20 | object |8 +  -> |
|000006c0| 6c 65 6e 0d 09 09 70 6f | 73 6e 20 6c 65 6e 20 2b |len...po|sn len +|
|000006d0| 20 20 67 65 74 3a 20 6c | 69 6d 20 20 3e 20 20 61 |  get: l|im  >  a|
|000006e0| 62 6f 72 74 22 20 68 61 | 73 68 44 69 63 20 6f 76 |bort" ha|shDic ov|
|000006f0| 65 72 66 6c 6f 77 22 0d | 09 09 70 6f 73 6e 20 5e |erflow".|..posn ^|
|00000700| 6c 69 6e 6b 20 57 64 69 | 73 70 6c 21 0d 09 09 30 |link Wdi|spl!...0|
|00000710| 20 70 6f 73 6e 20 77 21 | 09 09 32 20 2b 2b 3e 20 | posn w!|..2 ++> |
|00000720| 70 6f 73 6e 0d 09 09 68 | 73 68 20 70 6f 73 6e 20 |posn...h|sh posn |
|00000730| 21 09 09 34 20 2b 2b 3e | 20 70 6f 73 6e 0d 09 09 |!..4 ++>| posn...|
|00000740| 5e 6f 62 6a 20 70 6f 73 | 6e 20 6f 62 6a 6d 6f 76 |^obj pos|n objmov|
|00000750| 65 09 6c 65 6e 20 2b 2b | 3e 20 70 6f 73 6e 0d 09 |e.len ++|> posn..|
|00000760| 09 70 6f 73 6e 20 70 75 | 74 3a 20 70 6f 73 20 20 |.posn pu|t: pos  |
|00000770| 74 72 75 65 0d 09 54 48 | 45 4e 20 20 3b 6d 0d 0d |true..TH|EN  ;m..|
|00000780| 3a 6d 20 44 55 4d 50 3a | 0d 09 5e 62 61 73 65 0d |:m DUMP:|..^base.|
|00000790| 09 67 65 74 3a 20 6c 69 | 6d 20 20 5e 62 61 73 65 |.get: li|m  ^base|
|000007a0| 20 2d 0d 09 64 75 6d 70 | 20 20 3b 6d 0d 3b 63 6c | -..dump|  ;m.;cl|
|000007b0| 61 73 73 0d 0d 65 6e 64 | 6c 6f 61 64 0d 0d 5c 20 |ass..end|load..\ |
|000007c0| 54 45 53 54 3a 0d 09 73 | 74 72 69 6e 67 20 73 0d |TEST:..s|tring s.|
|000007d0| 09 31 36 20 68 61 73 68 | 44 69 63 20 64 64 09 31 |.16 hash|Dic dd.1|
|000007e0| 35 20 73 65 74 4d 61 73 | 6b 3a 20 64 64 20 20 32 |5 setMas|k: dd  2|
|000007f0| 30 30 20 61 6c 6c 6f 74 | 3a 20 64 64 0d 00 00 00 |00 allot|: dd....|
|00000800| 00 00 01 00 00 00 01 42 | 00 00 00 42 00 00 00 3b |.......B|...B...;|
|00000810| 2d 35 35 35 32 09 6b 6f | 6e 73 74 61 6e 74 09 67 |-5552.ko|nstant.g|
|00000820| 65 73 74 61 6c 74 44 75 | 70 53 65 6c 65 63 74 6f |estaltDu|pSelecto|
|00000830| 07 68 61 73 68 44 69 63 | 02 00 00 00 50 61 72 74 |.hashDic|....Part|
|00000840| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 01 81 c4 |SIT!....|........|
|00000850| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 b3 66 c2 70 00 00 | 00 00 00 00 01 7d 69 6f |...f.p..|.....}io|
|00000880| 6e 45 72 72 09 5c 20 67 | 65 73 74 61 6c 74 20 66 |nErr.\ g|estalt f|
|00000890| 75 6e 63 74 69 6f 6e 20 | 70 74 72 20 77 61 73 6e |unction |ptr wasn|
|000008a0| 27 74 20 69 6e 20 73 79 | 73 68 65 61 70 20 0d 2d |'t in sy|sheap .-|
|000008b0| 35 36 39 36 09 6b 6f 6e | 73 74 61 6e 74 09 6b 48 |5696.kon|stant.kH|
|000008c0| 4d 48 65 6c 70 49 44 09 | 5c 20 49 44 20 6f 66 20 |MHelpID.|\ ID of |
|000008d0| 76 61 72 69 6f 75 73 20 | 48 65 6c 70 20 4d 67 72 |various |Help Mgr|
|000008e0| 20 70 61 63 6b 61 67 65 | 20 72 65 73 6f 75 72 63 | package| resourc|
|000008f0| 65 73 20 28 69 6e 20 50 | 61 63 6b 31 34 20 72 61 |es (in P|ack14 ra|
|00000900| 00 00 00 3e 00 00 00 00 | 00 00 00 00 00 00 00 00 |...>....|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 01 00 00 00 | 01 42 00 00 00 42 00 00 |........|.B...B..|
|00000950| 00 3b 00 5e cf 4c 19 58 | 00 00 00 1c 00 32 00 00 |.;.^.L.X|.....2..|
|00000960| 4d 49 46 4f 00 00 00 0a | 00 80 00 00 00 00 00 00 |MIFO....|........|
|00000970| 00 5e d6 34 08 4d 69 73 | 63 49 6e 66 6f 00 00 00 |.^.4.Mis|cInfo...|
+--------+-------------------------+-------------------------+--------+--------+